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MODULE ACCFL (LANGUAGE (GLISS3¢) . 
sent = *v04-000" 
= 


oO 
uw 


BEGIN 


1 

PITITIITILIIIL LIL LLL LLL LLL iLL iiiiiiiiiiiiiitiiii 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY THE TERMS OF S$ LICEN H_THE 
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; ; 

3 4 

; 5 1 

3 8 1 

3 07 1 

3 8 08 1 

3 9 09 1 * 
3 10 10 1 « 
; 1 1} : * 
4 ® 
3 ig ig 1 + 
: «616 14 1 !* ONLY IN ACCORDANCE WITH U SE AND WIT * 
s 5 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
. oF 17 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 18 : 7 TRANSFERRED, * 
4 it *® 
3 0 $9 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 1 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ ; ! :* CORPORATION. . 
; 2&4 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
3 $2 $2 : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; ! * 
; a 0027 1 !* * 
3 28 0028 1 Vee RRR ARR AR ARERR AEE REA A REA EEAERAEEEEAAAEAEAAAAAAAAAAAAAAREEAARERREAREEE 
5 9 0029 1 

3 50 0030 1 !++ 

3 1 0031 1! 

P 32 003 1 ! FACILITY: MTAACP 

3 HH 0033 1! 

3 4 0034 1 ! ABSTRACT: 

3 2 $4 : : This module makes necessary changes to i/o data base to allow access. 
Dis a 0037 1 ! ENVIRONMENT: 

3 $ 0038 1! aah 

3 9 0039 1! Starlet operating system, including privileged system services 

; 40 0040 1! and internal exec routines. 

s 61 0041 1! 

: $§ 0042 1 !-- 

s 6 0043 1 

| 644 bee 1! 

; 645 045 1! 

; 6446 0046 1 ! AUTHOR: D. H. Gillespie, CREATION DATE: 17-MAY-77 

3; «(647 0047 1! 

; 48 048 1 ! MODIFIED BY: 

; 49 049 1! : 

3 3 its : V02-003 REFORMAT Maria del C. Nasr 30-Jun-1980 

: 2§ 0084 1% A0002 SPR27676 Maria del C. Nasr 14-Dec-1979 16:17 

, 0055 1! Update transaction count in VCB for each file access and 

: 4 0054 1! deaccess. 

; 5 0036 } a 

3 2$ oa9 1 


¥6e-600 if: sep 1964 98: 2g: $3 Bis KEUNG nen ASfen eta ACP. Pp SRCJACCFL. B32; 4 ae 5 v0 


; e8 2 } LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

; et O60 | REQUIRE "SRCS:MTADEF .B32"; 

; é 445 1 EXTERNAL ROUTINE 

3; § ¢$ 1 ALLOCATE, ! allocate non sPaged system space 

3 rf: ? 1 10_DONE ; i returns 10 packe 

; 66 23 | EXTERNAL 

; 4 2 ! IO_PACKET : REF BBLOCK; ! address of current 10 request packet 
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: address of current unit control block 
CURRENT_UCB : REF BBLOCK, 


L.- ie 4 ¢ 1 GLOBAL ROUTINE ACCESS FILE (ORIGINAL_ACC, PID, READ_ACCESS, WRITE_ACCESS, ABD) 
3 f} 4 7 : : COMMON_CALL NOVALUE = 

aa 5 1 !4 

; $ 1: 

: 4, 1 ! FUNCTIONAL DESCRIPTION: 

; f 128 ; } This routine makes necessary changes to i/o data base to allow access. 
5 460 1 !CALLING SEQUENCE: 

Pe oe | 461 1! ACCESS_F ILE (ARG1 ,ARG2,ARG3,ARG4 ARGS) 

5; ww bres 1! 

: 3 65 1 ! INPUT PARAMETERS: 

: ¢ 464 1! ARG] = Griginal access request 

; § 465 1! anes - PID of process requesting access 

>; 84 ob § 1! ARGS = read access requested(0 = no, 1 = yes) 

; 0467 1! ARG4 = write access requested(0 - no, 1 = yes) 

; 0468 1! ARGS = address of buffer descriptors 

; «87 0469 1! 

; BS 0470 1 ! IMPLICIT INPUTS: 

; 0471 1! CURRENT_UCB - address of current unit control block 
; 90 0472 1! CURRENT_VCB - address of current vcb 

: #91 0473 1! LOCAL_FT8 - copy of user's fib 

; F 0474 1! 

> & 0475 1 ! OUTPUT PARAMETERS: 

; 0476 1! None 

; 5 0477 1! 

; 8496 0478 1 ! IMPLICIT OUTPUTS: 

3; WW 0479 1! CURRENT_WCB = address of window control block 

; 0480 1! 

; WW 0481 1 ! ROUTINE VALUE: 

: 100 0482 1! None 

3; 401 0483 1! 

; 102 0484 1! SIDE EFFECTS: | 

; 103 0485 1! enable write back of window 

; 104 0486 1! 

3; 105 0487 1 !-- 

: 106 0488 1 

: 107 0489 2 BEGIN 

: 108 0490 

: 109 0491 EXTERNAL REGISTER 

: 110 049 COMMON 3 

ae bb 049 

: 116 0494 2 LOCAL Y 
; 11 0495 WINDOW : REF BBLOCK; ! address of window for this file 
3. (114 0496 

; #6115 0497 MAP 

; 1% 0498 

; Bt 4 Bee : address of buffer descriptors 

3 Bh 4 i ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH); 

; 134 308 EXTERNAL 

; \¢¢ 0504 LOCAL_FIB : BBLOCK, ! copy of user's file information block 
; 1s Ben? 

: 126 5 

; \$2 05 

; 126 05 


oo 
oo 


am 
es 
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} address of current window control block 
CURRENT_WCB : REF BBLOCK; 
create window 


WINDOW = ALLOCATE (WCBSC LENGTH + 6); 
WINDOWCWCBSB_TYPE] = DYASC_wWCB; 


initialize window 


2 2 O 


CNA UE WN 9 ODNOA UNE WN $0 OONOA UE WN SO OONOAUES WN" OWOOVNOUS WO” 


WINDOWCWCBSL _WLFLJ = .CURRENT_VCB; ! Link to vcb 
WINDOWCWCBSL_WLBLJ = .CURRENT_VCB; 

NDOWLWCBSV_READ] = .READ_ACTESS; ' 
WINDOWLWCBSV_WRITEJ = .WRITE ACCESS; ' write access specified 


WINDOWCWCBSL-PID] = .PID; 

current unit control block address 
uinpow WCBSL_ORGUCB) = scyenent UCB; 
WINDOWCWCBSW-ACON] = .ORIGINAL_ACC<O, 

WINDOW WCBSW_ NMAP } 0; 

address of relative volume table 
WINDOWCWCBSL_RVTJ = .CURRENT_VCBCVCBSL_RVT); 
put unit to receive io in mapping pter 
(uinpowtwcasy. ra COUNT])<0, 32> = . CURRENT UCB; 
CURRENT_WCB = .WINDOW; ' current window control block 
CURRENT-VCBLVCBSL_WCB) = .WINDOW; i note window address 

not partial file since access establishes handles on it 
CURRENT_VCBLVCB$V_PARTFILE] = 0; 
} increase transaction count 


CURRENT_VCBLVCB$W_TRANS) = .CURRENT_VCBLVCB$W_TRANS] + 1; 


pid of requester 


access control bits saved 
! prevent virtual io 
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$° enable write back of window 

71 ABDCABDSC WINDOW, ABDS$W_ COUNT 

ys -ABDCABDST _WINDOW, ABD$Q ATEXT AbDCABDSC -WINDOW, ABDSW_TEXT] + 1 = 

74 10_ DONE ( 10_PACKET) ; om ' complete 10 

75 1O-PACKET ="0; ' indicate I0 has been completed 
76 END; ! end of routine 
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ats 7 9 £05383 DISKSVMSMASTER:CMTAACP. SRCJACCFL.B32:1> (2) 
.EXTRN CURRENT_UCB, CURRENT_WCB | 
.PSECT $CODES,NOWRT,2 


0004 900 -ENTRY ACCESS_FILE, Save R2 : 0452 : 
36 DD 90¢ PUSHL #54 + 0516 ; 
00006 CF 1 FB CALLS #1 ALLOCAT : ; 
OA A 12 90 00009 MOVE #18, 10(WINDOW) : 0517 ; 
6 28 DO 00000 MOVL § CURRENT_VCB, (WINDOW) + 0521 ; 
04 Ad B D0 00010 CURRENT-VCB, 4(WINDOW) : 05 2 : 
0B ad 01 0 Oc AC F 014 INSV _READ_ACTESS, #0, #1, 11( WINDOW) : 05 ; 
0B AO 01 1 10 AC F 001 INSV WRITE_ACCESS, #1, #1, 11(WINDOW) : 0524 ; 
nc A 08 AC D MOVL PID, T2(wi ) + 0525 
io A 00006 CF b0 00 CURRENT_UCB, 16(WINDOW) : 0329 
14 AO 04 AC 3C 0002D MOVZWL ORIGINAL ACE, 20(WINDOW) + 0530 
1c =A 20 AB DO 000 : 2(CURRENT VCB), 28(WINDOW + 0535 
30 =A 00006 cr DO 900 MOVL § CURRENT_UCB, 48(WINDOW) : 0539 
00006 CF 0 00 0003p MOVL WINDOW, CURRENT WCB + 0540 
38 = AB 50 DO 00042 MOVL WINDOW, 56(CURRENT_VCB) 3 0541 
0B AB 01 BA 90046 BICB2 #1, 11(CURRENT VCBY : 0545 
OC AB B86 0004A INCW  12(CURRENT_VCBY + 0549 
5 14 AC DO 0004D MOVL ABD, R2 : 0553 
02 A 04 80 00051 MOVW #4, 2(R2) ; 
51 62 3C 00055 MOVZWL (RO), RI + 0554 
01 A241 9F 00058 PUSHAB 1(R25CR1] > 0555 
9E 50 pO 0005C 4 OVL WINDOW, a(SP)+ : 
00006 CF DD 0005F PUSHL 10_PACKET : 0556 
00006 CF 01 FB 00063 CALLS #17 10 DONE : 
0000G CF 04 00068 CLRL 10_PACRET : 0557 
04 0006C RET : 055 
; Routine Size: 109 bytes, Routine Base: SCODE$ + 0000 
3 177 0559 1 
: 178 0560 1 END 
: 179 0561 1 
: 180 0562 0 ELUDOM 
: PSECT SUMMARY | 
5 Name Bytes Attributes 
: SCODES 109 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics | 
cocccee= Symbols -------- Pages Processing 
Loaded Percent Mapped Time | 
| 


vO4~-600 


-$255$DUA28: CSYSLIBILIB.L32;1 


3 piso; 109 code + 0 data bytes 
: Run Time: 00:07. 
3 iieesee Time: 00:29.8 
3; Lines/CPU Min: 4396 
3 yonences eens 20378 
3 vee | Used: 89 pages 
3; Compilation Complete 
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1000 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ACCFL/OBJ=OBJ$:ACCFL MSRC$:ACCFL/UPDATE=(ENHS$:ACCFL) 
| 
| 
| 
| 
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